home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 58 / 058side2.d64 / murder one (.txt) < prev    next >
Commodore BASIC  |  2022-08-29  |  8KB  |  272 lines
  1. 10 a$=""
  2. 20 cl$="                                      [145]"
  3. 30 print"[147]":poke53280,0:poke53281,0:poke 53265,27:poke53270,200
  4. 40 poke56576,151:poke53272,29:pokev+21,0:dima$(20),a(20),b$(5,11),d$(20)
  5. 50 dimq1$(20),q2$(20),q3$(20),q4$(20),h%(11):fe=0:poke53265,peek(53265)or16
  6. 60 v=53248:s=54272:fori=0to24:pokes+i,0:next:z=40
  7. 70 fori=1to10:readh%(i):next
  8. 72 fori=1to4:reada$:ca$(i)="[212]he [195]ase of "+a$:next:readca$(5)
  9. 80 gosub2190:goto160
  10. 90 poke214,23:print:printcl$"[145]":return
  11. 100 poke214,22:print:print"          [151][209]uestions [193]sked: "qu"";:return
  12. 110 jv=peek(56320):fr=jvand16:jv=15-(jvand15):getu$
  13. 120 ifjv<>1thenifjv<>2thenifjv<>4thenifjv<>8theniffr<>0thenifu$=""then110
  14. 130 s=54272:pokes+1,rnd(0)*30+10:pokes+5,9:pokes+4,17:pokes+24,15
  15. 140 fort=1to70:next:pokes+4,16
  16. 150 return
  17. 160 print"[147][144][170][151]                    [144][146][165][170][183][183]";:poke2040,n
  18. 170 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][165][170][151]  [159]    [151] [159]  ";
  19. 180 print"  [151]  [208][207][204][201][195][197] [144][146][165][170]    [211]uspects";
  20. 190 print"     [146][170][151]  [159]    [151] [159]    [151]  [210][197][208][207][210][212]";
  21. 200 print" [144] [146][170]    [163][163][163][163][163][163][163][163]    [144] [146][170][151]  [159]  ";
  22. 210 print"  [151] [159]    [151]         [144] [146][170] [164][146]  [196]ouble";
  23. 220 print" [207]     [146][170][151]             ";
  24. 230 print"       [144] [146][170] [164][146]  [193]ce          ";
  25. 240 print"[146][170][155][206]ame[151]                [144] [146][170] [164][146]  [210]";
  26. 250 print"ose [208]etal   [146][170][155][202]ob [151]    ";
  27. 260 print"            [144] [146][170] [164][146]  [195]hapy [202]oes";
  28. 270 print"   [146][167][151]                  ";
  29. 280 print"  [144] [146][170] [164][146]  [208]eter [204]amy   [146][170][155][208]riors[151]";
  30. 290 print"              [144] [146][170] [164][146]  [200]ector";
  31. 300 print" [195]ujo  [146][170][151]             ";
  32. 310 print"       [144] [146][170] [164][146]  [205]ickey [194]     ";
  33. 320 print"[146][170][151]                    [144] [146][170] [164][146]  [196]";
  34. 330 print"iane [212]urin  [146][170][151]         ";
  35. 340 print"           [144] [146][170] [164][146]  [203]aren [203]ola";
  36. 350 print"   [146][170][151]                  ";
  37. 360 print"  [144] [146][170] [164][146]  [199]rant [204]ui    [146][170][151]    ";
  38. 370 print"                [144] [146] [183][185][185][185][185][185]";
  39. 380 print"[185][185][185][185][185][185][185][185][185][185][185][146] [163][163]           ";
  40. 390 print"                    [146]      ";
  41. 400 print"       [144][167]        [209]uestions   ";
  42. 410 print"      [144] [146]            [167]        [163]";
  43. 420 print"[163][163][163][163][163][163][163][163]         [144] [146]   ";
  44. 430 print"         [167] [146][166]  [201]s the murd";
  45. 440 print"erer male? [144] [146]          ";
  46. 450 print"  [167] [146][166]  [196]o you own a weapon? ";
  47. 460 print" [144] [146]           [144][146] [170] [146][166]  [215]as a ";
  48. 470 print".45 used?       [144] [146]     ";
  49. 480 print"[193]ccuse[144][146][161][170] [146][166]  [215]here were you a";
  50. 490 print"t the [144] [146]           [144][146][161][170]    t";
  51. 500 print"ime of the murder?   [144] [146]   ";
  52. 510 print"   [162][162][162][162][162][146][190] [163][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
  53. 530 fori=217to242:pokei,peek(i)or128:next
  54. 540 fori=0to14:poke55519+40*(vi-235)+i,15:next
  55. 550 w=1753:v=53248:pokev,53:pokev+1,68:pokev+28,5:pokev+4,93:pokev+39,9
  56. 560 pokev+5,68:pokev+41,9
  57. 570 y=75:poke2041,13:pokev+40,1:pokev+2,215:pokev+3,y:pokev+38,7:pokev+37,0
  58. 580 gosub100
  59. 590 n=234:p=245:poke2040,n:poke2042,p:su=1:pokev+21,7:gosub1590:gosub1120
  60. 600 poke2040,n:poke2042,p
  61. 610 pokev+39,h%(su):pokev+41,h%(su):pokev+2,215:pokev+3,75+su*8:gosub110
  62. 620 ifjv=1thensu=su-1:n=n-1:p=p-1:ifsu<1thensu=10:n=243:p=254
  63. 630 ifjv=2thensu=su+1:n=n+1:p=p+1:ifsu>10thensu=1:n=234:p=245
  64. 640 ifjv=1orjv=2thengosub1590:gosub1120
  65. 650 ifjv=4then670
  66. 660 goto600
  67. 670 q=1
  68. 680 pokev+2,96:pokev+3,188+q*8:gosub100:gosub110
  69. 690 iffr<>16thenifn=vithenprint" [212]he corpse is quite silent.":goto680
  70. 700 iffr<>16thenfe=1:qu=qu+1:gosub760:goto680
  71. 710 print""cl$:ifjv=1thenq=q-1:ifq<1thenq=4:goto680
  72. 720 ifjv=2thenq=q+1:ifq>4thenq=1:goto680
  73. 730 ifjv=8thenforg=wtow+120stepz:pokeg,102:next:goto600
  74. 740 ifjv=4then1640
  75. 750 goto680
  76. 760 forg=wtow+120stepz:pokeg,102:next
  77. 763 pokew-z+(z*q),122
  78. 765 print""cl$:print"";:poke242,peek(242)or128:gosub100
  79. 770 ifn=snthenta=1:goto820
  80. 780 ifn=w1thenta=5:goto820
  81. 790 ifn=w2thenta=9:goto820
  82. 800 ifn=w3thenta=13:goto820
  83. 810 ifn<>sn2andn<>w1andn<>w2andn<>w3thenprintb$(q,su):return
  84. 820 ifq=1thenprintq1$(ta)
  85. 830 ifq=2thenprintq2$(ta+1)
  86. 840 ifq=3thenprintq3$(ta+2)
  87. 850 ifq=4thenprintq4$(ta+3)
  88. 860 return
  89. 870 print"[146] [206]o, [201]'m afraid you're wrong.          "
  90. 880 pokes+1,130:pokes+5,9:pokes+15,30
  91. 890 pokes+24,15:forl=1to6:pokes+4,21:fort=1to100:next:pokes+4,20:fort=1to100
  92. 900 next:next:print""cl$:print"      [208]ress [198][201][210][197] to review the case."
  93. 910 gosub110
  94. 920 iffr<>16then160
  95. 930 goto910
  96. 940 print""cl$
  97. 950 u=0:x=0:s=54272:fori=0to24:pokes+i,0:next
  98. 960 pokes+14,5:pokes+18,16
  99. 970 pokes+3,1:pokes+24,1
  100. 980 pokes+6,240:pokes+4,65
  101. 990 fr=5389
  102. 1000 print" [199]ood job!  [217]ou've nabbed the culprit."
  103. 1010 fort=1to150:fq=fr+peek(s+27)*3.5
  104. 1020 hf=int(fq/256):lf=fq-hf*256
  105. 1030 pokes,lf:pokes+1,hf
  106. 1032 ift<70thenif(t/10)=(int(t/10))thenx=x+1:pokes+24,x*2
  107. 1035 ift>70thenif(t/10)=(int(t/10))thenu=u+1:pokes+24,17-(u*2)
  108. 1040 next:pokes+24,1:fort=1to500:next:pokes+24,0
  109. 1050 print"[147]":pokev+21,0
  110. 1052 printtab(13)"[212][200][197] [195][207][206][198][197][211][211][201][207][206][151]"
  111. 1054 fori=1tokk:print" "d$(i):next
  112. 1060 poke214,20:print:print"       [208]ress [198][201][210][197] to play again."
  113. 1070 print"     [208]ress [209] to return to [204][207][193][196][211][212][193][210]."
  114. 1080 gosub110
  115. 1090 ifu$="q"thengosub2550
  116. 1100 iffr<>16thenprint""cl$:fr=16:gosub2190:goto160
  117. 1110 goto1080
  118. 1120 poke214,5:print"[151]":printtab(6);
  119. 1130 onsugoto1140,1190,1240,1270,1310,1360,1410,1460,1500,1540
  120. 1140 print"[196]ouble [207]":printtab(6)"[208]rogrammer"
  121. 1150 print"[191][195]omputer [198]raud"
  122. 1160 print"[191][211]oftware [208]iracy"
  123. 1170 print"[191][208]hone-[208]hreaking"
  124. 1180 return
  125. 1190 print"[193]ce":printtab(6)"[205]ovie [211]tar"
  126. 1200 print"[191][208]hotographer[157][157][157][157][157][194]ashing"
  127. 1210 print"[191][206]arcotics"
  128. 1220 print"[191][194]ad [193]cting"
  129. 1230 return
  130. 1240 print"[210]ose [208]etal":printtab(6)"[211]ocialite"
  131. 1250 print"[191][206]o priors"
  132. 1260 return
  133. 1270 print"[195]hapy [202]oes":printtab(6)"[199]eneral ([210]et.)"
  134. 1280 print"[191][193][215][207][204]"
  135. 1290 print"[191][196][215][201]"
  136. 1300 return
  137. 1310 print"[208]eter [204]amy":printtab(6)"[213].[211]. [211]enator"
  138. 1320 print"[191][194]ribery"
  139. 1330 print"[191][208]ublic [196]runkenness"
  140. 1340 print"[191][194]allot-box[157][157][157][157][157][157][157][212]ampering"
  141. 1350 return
  142. 1360 print"[200]ector [195]ujo":printtab(6)"[199]ang [204]eader"
  143. 1370 print"[191][197]xtortion"
  144. 1380 print"[191][193]rson"
  145. 1390 print"[191][193]ssault"
  146. 1400 return
  147. 1410 print"[205]ickey [194]":printtab(6)"[202]ournalist"
  148. 1420 print"[191][204]ibel"
  149. 1430 print"[191][211]lander"
  150. 1440 print"[191][207]ut-and-out [204]ying"
  151. 1450 return
  152. 1460 print"[196]iane [212]urin":printtab(6)"[200]ome-maker"
  153. 1470 print"[191][211]hop-lifting"
  154. 1480 print"[191][210]esisting [193]rrest"
  155. 1490 return
  156. 1500 print"[203]aren [203]ola":printtab(6)" [193]rt [205]odel"
  157. 1510 print"[191][206]arcotics"
  158. 1520 print"[191][204]oitering"
  159. 1530 return
  160. 1540 print"[199]rant [204]ui":printtab(6)"[210]estauranteur"
  161. 1550 print"[191][193]ssault"
  162. 1560 print"[191][208]oisoning"
  163. 1570 print"[191][199]ourmet [194]ribing"
  164. 1580 return
  165. 1590 poke214,5:print:printtab(6)"[151]              "
  166. 1600 printtab(6)"              "
  167. 1610 fori=0to3:print"